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Allocate Devic 

Deallocate Device 

Lock 1/0 Database and Probe Name Rescr'ipte or 

eet Reference Count, Clear Ownership, and Call Driver 
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PAAAARAAAAARARAALAAALAALALAL ELE LALLA E ESE ESE EERE EERE RE REE EET REECE Eee | 


COPYRIGHT (c) 1978, 1980, 1982, 1984 BY 
DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. 
ALL RIGHTS RESERVED. 


THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED 
ONLY IN ACCORDANCE WITH THE TERMS oF SUCH LICENSE AND WITH THE 
INCLUSION OF THE ABOVE COPYRIGHT NOTICE. S$ SOFT ANY R 
COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY 
OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY 
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* 
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* 
« 
« 
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* 
* 
* 
* 
* 
» 
* 
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THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE 
paepokat itn NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 


DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 
SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 


SSessssoscsscccceces 
OOQCGCCGCCGCOOCOOOOOOOOoOoO 


SOOO OOCOOSoSooOOCSoOSoOOoOSoOOoOSoOSoSO 
OOooooooocooooocoo 


PIPPI S Iii rir it iii iit iiiiiiitiiiiiiiiiiitiiiiiiiiiiiiiit) 
D. N. CUTLER 9-SEP-76 
MODIFIED BY: 


v03-013 ACG0411 Andrew C. Goldstein, 22-Mar-1984 17:13 
Unlock device if result buffer probe fails 


v03-012 ACG0399 Andrew C. Goldstein 24-Feb-1984 18:25 
Rewrite 1/0 database search to handle cluster device 
allocation correctly, move device lock routines to 
IOSUBPAGD, allow devices with channels assigned to be 
deallocated, rework ‘‘media_type’’ to use device name string 
as the device type name, general code cleanup. 


v03-011 LMPO185 L. Mark Pilant, 1-Feb-1984 14:02 
Add support for device ACLs. 


v03-010 ROW0240 Ralph 0. Weber 11-0CT-1983 
Correct calling sequence to JOCSCVT_DEVNAM used to create 
physigat device name to supply a R4, name-type, argument. 
se R4=-1 which produces the same results a the previous R4 
PCB address value produced. 


v03-009 TCMO00S Trudy C. Matthews 12-Sep-1983 
onty keke ut a lock on the device if the system is 
participating in a cluster. 


v03-008 TCM0004 Trudy C. Matthews 15-Aug-1983 
Take advantage of an SENQ optimization that allows the 
original device lock and its conversion to be collapsed into 


DOOOOOOOSOOOOSOOOOSoOOSoOOSSoOO 
SOoOooooooooooocoooSo 
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one call to SENQ. 


v03-007 TCMO003 Trudy C. Matthews 24-Jun-1983 
Boye code that constructs allocation class name from 
EXESLOCK_DEV to routine IOCSCVT_DEVNAM, so that it is 
available for use by other routines. ve zeroing of 
UCBSL_LOCKID field from EXESDALLOC_DEV to EXESUNLOCK_DEV. 


v03-006 Fen00oe Trudy ¢. Matthews 10-Jun-1983 
Fix bug in potting up input R4 register in calls to 
IOCSCVT_DEVNAM. Add system facility name SYS$ to lock 
resource name. Allow caller of EXESLOCK_DEV to specify 
the address of a lock value block. 


v03-005 TCM0001 Trudy C. Matthews 21-Apr-1983 
Use the lock manager to enforce cluster-wide device allocation. 


V03-004 KTA3042 Kerbey T. Altmann 20-Mar-1983 
Fix scan of device data base in DEALL to include 
cluster-wide devices. 


v03-003 ROW0135 Bolen 0. Weber 21-0CT-1982 

Add test for UCBSV_TEMPLATE in UCBSL_STS of device to be 
allocated. If bit is set (indicating a template UCB), return 
SSS_TEMPLATEDEV, ‘Template device cannot be allocated’’ error 
status. Also move SS$_ACCVIO error return setup to fix broken 
branch destinations. 


V03-002 KTA0101 Kerbey T. Altmann 07-Jun-1982 
Add support for optional 4th parameter, MEDIA_TYPE 


v03-001 $TJ0258 Steven T. Jeffreys, 12-Apr-1982 
If the device is mounted, do not deallocate it, and 
return SS$_DEVMOUNT as the status code. 
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System services for device allocation 


Allocate device 
Deallocate device 


Macro Library calls 


SCANDEF 3; define cancel reason codes 
SODTDEF 3; define DDT offsets 

SDEVDEF 3; define device characteristics 
SIOCDEF 3; define search routine flags 
SPCBDEF 3; define PCB offsets 

SSSDEF 3; define Syston status values 
SUCBDEF 3; define UCB offsets 


Local symbols 


patho ee oe ae ae Ree ee eR se ere tee ee 
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Argument List offset definitions for allocate device 
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EP-1 SYS.SRCISYSDEVALC.MAR; 1 
1 
8 4 119 DEVNAM=4 ; address of device name oteing dyscriptor 
8 11 ae pe ; address to store length of physical name 
119 PHYBUF=12 3; address of physical name buffer descriptor 
120 ALACMODE=16 ; access mode 
1 121 FLAGS= ; flags longword, containing 
0 ! DEVICE_TYPE=0 ; device name is a device type string 
124; 
! i 3; Argument List offset definitions for deallocate device 
1 ° 
S444 0 1 8 DEVNAM=4 ; address of device name string descriptor 
00000008 : : : 3 DLACMODE=8 3 access mode 
09 131 
000000 8 132 -PSECT YSEXEPAGED 
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Allocate Device 
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-SBTTL Allocate Device 


+ 


EXESALLOC = aliocate device 
This service provides the capability to reserve a device for exclusive 


INPUTS: 
DEVNAM(AP) = address of device name oteing descriptor. 
PHYLEN(AP) = address to store length of physical name. 
PHYBUF (AP) = address of physical name buffer descriptor. 
ALACMODE(AP) = access mode device is to be allocated to. 
FLAGS(AP) = flags longword (optional) 
R4 = current process PCB address. 

OUTPUTS: 


RO Low bit clear indicates failure to allocate device. 


RO = SS$_ACCVIO - device name string, device name string 
descriptor, or physica} name buffer descriptor 
cannot be read by cpt ting access mode, or physical 
ons buffer cannot be writ { 

mode. 


SS$_IVSTSFLG - invalid flag bits set 


RO = SS$_IVLOGNAM = zero or greater than maximum Length 
device name string specified. 


RO = SS$_IVDEVNAM - device name string contains invalid 
coerecyers or no device name string descriptor 
specified. 


RO = SS$_NONLOCAL - specified device exists on a remote 
system. 


RO = SS$_NOSUCHDEV - specified device does not exist on 
ost system. 


RO = SS$_NODEVAVL = no allocatable unit can be found. 


RO = SS$_DEVALLOC - device already allocated to another 
process. 


RO = SS$_DEVMOUNT - device currently mounted and cannot 
Be allocated. 


RO = SS$_DEVOFFLINE - device is marked offline or 
unavailable. 


SS$_TEMPLATEDEV = device is a template and cannot 
e allocated 


ten by calling access 
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1 
RO = SS$_NOPRIV - dqvice currently spooled and process does 
not have privilege to allocate, or device is 

protected against allocation. 


RO = SS$_EXENQLM = couldn't take out cluster-wide lock 
ecause process exceded its enqueue Limit. 


RO = SSS$_INSFMEM = couldn't take out Glustereuide lock 
Because of insufficient dynamic memory to create 
the necessary data structures. 

RO Low bit set indicates successful completion. 


RO = SS$_DEVALRALLOC = device is already allocated to calling 
process. 


RO = SS$_BUFFEROVF = normal completion, physical name over- 
Flowed physical name buffer. 


RO = SS$_NORMAL = normal completion, physical name transfered 
to physical name buffer. 


-ENABLE LSB 
LOCSUMLOCK DEV 3; unlock the device 
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PROPPONIPONPIPOPINIPOPOPPOPIPOPOPIPIPINIPUPIPIPIPOPIPOPONOPIPIPIPOPONIPUPINOPUNINIPIPIPNININY 


0 
0 
° 
0 
° 
9 000 
1 : 15$ BRW ACCVI ; common ACCVIO handling 
007C 0 Y EXESALLOC,“M<R2,R3,R4,R5,R6> 
56 0144 BF 3 0 MOVZWL #SS$_IVDEVNAM,R6 : assume invalid device name 
OOF D g 0 BSBW LOCK ; lock 1/0 data base and get device name 
$3 1 1 BEQL 40$ : if eql no device name specified 
- Ee 1 CLRQ R2 3; zero flags and value block 
05 6 91 1 CMPB (AP) ,#FLAGS/4 ; see if flags argument is present 
1 1F 1 BLSSU 20% 3; branch if not 
1 IFNORD #4,FLAGS(AP),15$ : probe it, since it's optional 
56 O17C BF o3C MOVZWL #S$$_IVSTSFLG,R6 > assume invalid flags 
01 14AC~ O01 CMPL FLAGS(AP) ,#1 3 test for valid bits 
92 1F BLSSU $ 3 zero - 
9 1A BGTRU $ ; invalid bits set 
52 02 $8 BISB #1OCS$M_TYPE,R2 3 set device type mode 
FFCD’ 208: BSBW IOCSSEARCH ; search for generic allocatable device 
3; note all checks made by search routine 
56 0 4! 30$: MOVL RO,R 3 save search status 
6D 56 «COE 40$: BLBC R6,9 : if lbe search failure 
55 1 00 MOVL R1,R 3 save device UCB address 
3; Return physical device name 
"7 6 ry 1) MOVL PHYBUF (AP) ,R1 3 get address of name buffer descriptor 
4 1 4 QL : 1f eql none 
4 IFNORD #8,(R1),10$ 3 can name buffer descriptor be read? 
50 61 36 4 MOVZWL (RI), RO i get Length of name buffer 
4 4 BEQL $ :; 1f eql zero length buffer 
OOFF 8F 1 4 CMPW RO,#255 3; was buffer size reasonable? 
04 1B 005 BLEQU 50$ : branch if ok 
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natn 


math 
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Allocate Device “SEP-1 : SYS.SRCIJSYSDEVALC.MAR;1 
9A 4 4 MOVZBL £038 RO ; use smaller, but still gbeurd size 
D0 8 24 MOVL  4(R1S,R1 ; get address of name buffer 
IFNOWRT RO, <R1),10$ : can name buffer be written? 
09 6 MOVL PHYLENC(AP),R3 ; get address to store name Length 
1 BEQL 60$ : 1f eql none 
IFNOWRT #2,(R3),10$ 3 can name Length be written? 
1 § ‘ 4 608: MNEGL #1,R4 3; use display format device name 
FBC 33 BSBW loescvt DEVNAM ; convert device name and unit 
54 00009900" rig 74 § MOVL (L$GL_PCB,R4 ; restore PCB address in R4 
6 D 78 5 MOVL ayeRe 3 save completion status 
D 7 5 TST R : egerens to store ggngeh specified? 
9 1 8 5 BEQL 70$ : if eql none specifie 
63 1 8B ¢ MOVW R1,(R3) ; insert length of converted string 
0 ¢ 3 Finish allocating the device. The lock, if any, was taken out by IOCSSEARCH. 
. 2 7 3; ALL we have to do is mark up the UCB. 
07 38 AS) 17 + 085 65 70S: BBCS #DEVSV_ALL ,UCBSL_DEVCHAR(R5) ,80$ ; if clr, device not allocated 
56 0641 BF 3C A 266 MOVZWL #SS$_DEVALRALLOC;R6 ; set device already allocated status 
is WW 4 of BRB 90$ 
50 10aC 02 00 F 0091 +4 80$ EXTZV #0,#2,ALACMODE(AP),RO ; get specified access mode 
FF66" 30 0097 0 BSBW EXE SMAXACMODE 3 maximize access mode 
5F AS 50 0 QO9A 71 MOVB RO,UCB$B_AMOD(R5) 3; set allocating access mode 
5C AS) =6B6 OO09E if INCW UCBSW_REFC(RS ; count a reference 
2c AS 60 A4 D0 OOAT 27 MOVL  $PCBSL“PID(R4),UCBSL_PID(RS) ; store owner PID 
50 0 OOA 74 90$ MOVL R6,R 3; set completion status 
FF54‘ 31 OOA 75 BRW 1O€SUNLOCK ; 
OOAC 76 
QOAC 77 -DISABLE LSB 


SYSDEVALC 
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-SEP-1984 
-SBTTL Deallocate Device 


SYS.SRCISYSDEVALC.MAR; 1 


+ 
EXESDALLOC = deallocate device 


song Soretee provides the capability to relinquish exclusive use of a 
Vv oO 


"INPUTS: 
DEVNAMCAP) = address of device name string descriptor. Zero 
DLACMODE (AP) = access mode for deallocation. 
R4 = current process PCB address. 
OUTPUTS: 
RO low bit clear indicates failure to deallocate device. 


RO = SS$_ACCVIO = device name string or device name string 
descriptor cannot be read by calling access mode. 


RO = SS$_DEVASSIGN = device cannot be deallocated because 
process still has channels assigned. 


SS$_DEVMOUNT = device cannot be deallocated because it 
Ts still mounted. 


RO = SS$_DEVNOTALLOC - device not allocated or not allocated 
fo process. 


RO 


RO 


SS$_IVDEVNAM = device name string contains invalid 
characters. 


RO = SS$_IVLOGNAM = zero or greater than maximum Length 
device name string specified. 


RO 


SS$_NOPRIV = calling access mode does not have privilege 
fo deallocate device. 


RO = SS$_NOSUCHDEV = specified device does not exist on 
fost system. 


RO Low bit set indicates successful completion. 
RO = SS$_NORMAL = normal completion. 


Sete Ge Se Ge Ge Ge Ge Ge Be Ge Ge Se Se Ge Ge Se Ge Fe Ge Ge Ge Ge Ge Ge Ge Se Ge Ge Ge Ge Se Gee Ge Sete Se 


sENTRY EXESDALLOC, “M<R2,R3,R4,K5,R8> 


ExTZv #0 DLACMODE(AP),RO ” ; get deallocation access mode 
BSBW EXESMAXACMODE maximize access mode 
MOVL RO,R5 Save maximized access mode 


BSBB ex : lock 1/0 data base and search for device 
$ : if eql no device name specified 
BSBW IOCSSEARCHDEV ; search for physical device 


21H 


N 11 
SYSDEVALC = SYSTEM SERVICES FOR DEVICE ALLOCATION 1 ~SEP-19 4 AX/VMS Macro v04-00 Page 
VOne500 Deallocate thee. -SEP-1984 4 88: 99: 98 SYS.SRCISYSDEVALC.MAR; 1 . () 
47 50 €9 00C1 BLBC RO,60$ H lbc search failure 
60 AS 2C Al } eS : cree rine ram roc ; device allocated to current process? 
: neq no 
SF AI 38 of cB 5 CMPB UCBS$B_AMOD(R1) 3 can speci ted access mode deallocate device 
9 15 CF 40 BLEQ 3; if ‘eq yes 
11 4 4 BRB NOPRIV ; if gtr no 
2— 38 Al = (17~—=é«#€EYA D rk 10$: BBC 44344 -ALL,UCBSL_DEVCHAR(R1),50$ ; if clr, device not allocated 
56 610 D 44 BSBB DECREF 3 decrement reference count and call driver 
,) re be DA 45 BRB UNLOCK 3 
ODC 46 
Bepe 47; 
$5 +3 3; Null device name - deallocate all devices 
7E «SA ODC 20 2 MOV ~—s_ R10, = (SP) : save some registers 
7C OODF : CLRQ 3: initial conditions 
FFIC’ 33 0E1 § 30$ BSBW IOCSSCAN_I0DB 3 scan the 10 database 
06 50 00E4 5 BLBS 3 got a good UC 
5A ge D BOE A 54 MOVQ (SB) * R10 ; end of the Line, restore registers 
003D = 31 hy 2? BRW 3; and get out 
2C AA ODI ODED 57 40S: CMPL UCBS$L_PID(R10),- 
60 A4 te 58 PCBSL_PID(R4) : device allocated to current process? 
3 12 OOF 59 BNEQ 3; if neq no 
SF AA 5 91 OOF4 60 CMPB R5 ,.UCBSB_AMOD (R10) 3 can access mode deallocate device? 
E714 OOFS 61 BGTR 308 : if gtr no 
17 +€1 OOFA 6 BBC #DEVS 
E2 38 AA OOFC 6 UCBSL VBEVEHAR(RIO) . 30$ ; if clr, device not allocated 
51 SA 00 OOFF 64 MOVL R°9,RT : transfer UCB pointer 
2c 10 0102 65 BSBB Echer ; decrement reference count and call driver 
dbBté«d'YA: He 6 BRB 3 
50 0858 8F 3C 0106 368 50$: MOVZWL #SS$_DEVNOTALLOC,RO 3; set device not allocated to process 
20 11 0108 69 60$: BRB UNLOCK ; 


a 
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tae hts 1/0 Database and Probe Name Descrip ~$ee = 138% §¢: 99:98 LEYS SRCISYSDEVALC MAR: 1 . (4) vi 
} Pp re -SBTTL Lock 1/0 Database and Probe Name Descriptor 
10D 7 ; 
i . be i ; Subroutine to lock 1/0 data base, search for device, and check for mailbox. 
100 378° 
10D 58 LOCK: 3 lock 1/0 data base and search for device 
00000000' cf 16 Q1 4 JSB SCHSIOLOCKW ; lock 1/0 database for write access 
51 O4A 0 1 7 MOVL DEVNAM(AP) ,R1 3 et + gh of device name string descript 
06 1 11 g BEQL 10$ : ade none 
119 1 IFNORD #8,(R1),ACCVIO 3 can device name descriptor be read? 
05 iif +. 10$: RSB 3 
4 8 23 ; Miscellaneous exits 
50 oc 3c 01 9 6 ACCVIO: MOVZWL #SS$_ACCVIO,RO ; set access violation status 
08 11 O01 BRB UNLOCK ; 
1 : 43 
50 24 3¢ Q1 9 
am | ; : 4 : 
50 01 3C 63 A 332 NORMAL: MOVZWL #SS$_NORMAL,RO 3; set normal completion 
FEDO" 31 012D 93 UNLOCK: BRW IOCSONLOCK 3; unlock I/0 data base and return 


NOPRIV: MOVZWL #SS$_NOPRIV,RO ; set no privilege 
BRB UNLOCK 
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Decrement Reference Count, Clear Ownersh SEP- SYS.SRCISYSDEVALC.MAR; 1 ( 
} $8 ~SBTTL Decrement Reference Count, Clear Ownership, and Call Driver 
1 3 
! 38 ; Subroutine to decrement reference count, clear ownership, and call driver 
1 400 
1 401 DECREF: 3 
50 006C 8F af 1 4 ¢ MOVZWL #SS$_DEVMOUNT,RO 3 assume device mounted 
13 ~«O€ 1 4 BS #DEVSV_MNT,= ; branch if device mounted 
0B 38 Al 1 404 UCBSL_DEVCHAR(RT) , 108 Fs 
2? DD QO13SA 405 PUSHL R 3; save RS 
55 1 be 13C £83 MOVL R1,R5 ; set address of device UCB 
FEBE' is¢ 6 4 BSBW LOCSDALLOC_DEV : clear device allocation 
55 8E 00 ee 169 MOVL (SP)+,R 3; restore R5 
05 014 409 10$: RSB 3 
0146 410 
0146 411 
0146 a8 
0146 3 41 END 
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ALACRODE = boopoofo © 
* 3 


Ep=1986 08:52:58 Esrsvsncisyspevarcanar:1 29 U3, 


cre PCB eeeereer 
DECREF 3 R 
DEVSV_ALL = 
DEVSV"MNT = 1 
DEVICE” TYPE = 
DEVN = 4 
= 8 
EXESALLOC 6 RG p 
EXESDALLOC OOOOAC RG 
ENG SAARACAODE eereeeee XO 
FLAGS = 00000014 
IOCSCVT_DEVNAM eeeeeeee xX 03 
10Cc OCSDALCOC DEV etereeee YX 
10C$M = 00000002 
1OCSSCAN, 1008 eteneeee xX 
10C RCH eeereere =X 
IOCSSEARCHDEV eeereeee 
10C K eeeeeere 8X 
IOCSUNLOCK_DEV teareeeer KX 0 
LOCK 000010D R 9 
NOPRIV 0000125 R 
MAL 000012A R 0 
PCBSL_PID = 00000060 
PHYBUF = 000000 4 
PHYLEN = 000000 
SCHSIOLOCKW eeeeeere XxX 02 
SS$_ACCVIO = 0000000¢ 
SS$_DEVALRALLOC = 44 41 
SS$_ T = 00000 $6 
SS$_DEVNOTALLOC = 000 
VNAM = 06000144 
SSS_IVSTSFLG = 0000017¢ 
SS$_ aly = 00024 
SSS NOR = 00001 
CBSO A OANOD s £ 
UCBSL-DEVCHAR = 8 
UCBSL_ = bec 
UCBSW_REFC = 0000005¢ 
UNLOCR 00000120 R = 02 
wee etese see ae ance + 
: ; Psect synopsis ! 
PSECT name Allocation PSECT No. Attributes 


. ABS . 008 ( -) 00 ¢ 9.) NOPIC USR CON ABS LCL NOSHR NOEXE NORD NOWRT NOVEC BYTE 
SABS$ ( -> O71 ¢ 1.) NOPIC uSR C ABS LCL NOSHR EXE RD WRT NOVEC BYTE 
YSEXEPAGED ( 326.) 02 ¢ 2.) NOPIC USSR C k tc EXE RD WRT NOVEC BYTE 
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! Performance indicators ! 
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Phase Page faults CPU Time Elapsed Time 


Initialization ¢ 7:00:00. :00.79 
Command processing 1 $ :00:00. :02.7 
Pass 1 30 :00:09. 729.1 
Symbol table sort :00:01. :03.8 
Pass 8 01.84 704.1 
Symbol table output 7 :00:00. :00: -6 
Psect synopsis output 1 :00:00. :00:00.0 
Cross-reference output 0 0:00:00. :00:00.0 
Assembler run totals 576 0:00:13.44 :00:41.16 


The working set Limit was 1500 popes. 
53116 bytes (104 pages) of virtual memory were used to buffer the intermediate Sate. 

There were 60 pages of symbol table space allocated to hold 1028 non-local and 18 local symbols. 
413 source lines were read in Pass 1, producing 19 object records in Pass 2. 

16 pages of virtual memory were used to define 15 macros. 
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H Macro Library statistics H 


Macro Library name Macros defined 


“$52 28DUACE: SYS.OBJJLIB.MLB;1 7 
$255$DUA28: CSYSLIBISTARLET.MLB;2 5 
TOTALS (all Libraries) 12 


1097 GETS were required to define 12 macros. 
There were no errors, warnings or information messages. 
MACRO/LIS=LIS$:SYSDEVALC/OBJ=OBJ$:SYSDEVALC MSRC$:SYSDEVALC/UPDATE=(ENHS$:SYSDEVALC) +EXECMLS/LIB 
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